home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #277 (1993)(Rhein-Sieg-Soft).zip
/
Franz PD Disk #277 (1993)(Rhein-Sieg-Soft).adf
/
Lotto
/
Lotto.p
< prev
next >
Wrap
Text File
|
1993-11-17
|
884b
|
39 lines
PROGRAM Lotto;
TYPE Feld = ARRAY[1..7] OF INTEGER;
VAR Window : TEXT;
Return : STRING;
x,y : INTEGER
Zahl : Feld;
PROCEDURE Zahlen;
BEGIN
FOR x := 1 to 7 DO
BEGIN
Zahl[x] := RANDOM(50);
IF (Zahl[x] = 50) OR (Zahl[x] = 0) THEN Zahl[x] := 1;
END;
FOR x := 1 to 7 DO
BEGIN
FOR y := 7 DOWNTO 1 DO
IF Zahl[x] = Zahl[y] THEN Zahl[x] := Zahl[x] + 1;
END;
END;
BEGIN
ASSIGN(Window, 'CON:0/30/640/100/LOTTO V0.01');
RESET(Window);
IF EOF(Window) THEN WRITELN('Error!');
WRITELN(Window,'LOTTO V0.01 --- Public Domain');
WRITELN(Window);
WRITELN(Window,'Die Gewinnzahlen der Woche sind:');
Zahlen;
WRITELN(Window);
WRITELN(Window,Zahl[1],' ',Zahl[2],' ',Zahl[3],' ',Zahl[4],' ',Zahl[5],' ',Zahl[6],' | ',Zahl[7],' |');
WRITELN(Window);
WRITE (Window,'[RETURN] ');READLN(Window,Return);
CLOSE(Window);
END.